<script>on closeFieldif the length of me > 30 thenget meif char 1 to 3 of it is "<<<" thenif the length of it < 43 then exit closeFieldelse put 42 into daLimitelse put 30 into daLimitput char one to daLimit of me into mebeepend ifend closeField</script>
</part>
<part>
<id>34</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>463</left>
<top>65535</top>
<right>498</right>
<bottom>35</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>-482</titleWidth>
<icon>-15903</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Go Online!</name>
<script>on mouseUpglobal erroid,welcome,pageNow,RT,thePageglobal browseCommand,RTCommand,servantName,servantMode,startingCardglobal miscOsopenCard --zoomOutset lockMessages to trueput 1 into startingCardif the optionKey is not "down" thengo to card one of stack "Online Servant Stuff"exportPrep2 --use option to re-logon if your upload session cut shortend iflock screensort marked cards in this bg by field "GEPage" --so we dont spend all day navagatingget the screenrectput the loc of card window into cardLocget "16," & item four of it - 38subtract item two of cardLoc from item two of itset the loc of msg to itput "1" into pageNowgo to last card of this bgset the icon of me to "On Modem"go to card "Settings" of stack "OnLine Servant Stuff"put cd fld "minTime" into minTimegenerateCommandslogOngo to last card of stack servantNameif line 2 of minTime is "New" then put 0 into minTimeelseif the number of marked cards > 0 thenget fld "heading" -- one hour since last logon?convert it to secondsput 60 * line one of minTime + it into minTimeend ifend ifif fld "text" is not empty or fld "flag" is not empty then doMenu "New Card"if line 15 of miscOS then put char 1 of welcome into mailModeelse put return & "New Mail reading turned off." after welcomedelete char 1 of welcomeput welcome into field "text"put "Logon" into fld "GEPage"if "PRIME" is in welcomethen show fld "Dollar"else hide fld "Dollar"unlock screenput the number of this card into startingCardif line 8 of miscOs ≠ "" thencheckMailput empty into line 8 of miscOsend ifif mailMode is "@" then checkMailexportBBSif line 3 of miscOs is not "Reply" thenrepeat with x = 1 to the number of items in line one of RTput x into line 7 of miscOsput word 1 of item x of RT & ",1" into thePageput false into line 12 of miscOs --P1.26arepeat with y = 3 to the number of items in line x of RTCommandput item y of line x of RTCommand into browseCommandif browseCommand is not empty thenif "130001" is in browseCommand thenput the seconds into newTimeif newTime > minTime then importBBSelse put "too soon to rebrowse " & item 1 of thePageelse importBBSend ifif erroid is "badCat" thenrepeat with z = y + 1 to the number of items in line x of RTCommandif "set" is in item z of line x of RTCommand then exit repeatput "set 1" into item z of line x of RTCommandend repeatend ifend repeatif line 12 of miscOs is true thenput return & "No messages found (pg " & item 1 of pageNow ¬& ")." after fld "Text" of card startingCardend ifend repeatend if-- put empty into thePagego to stack "OnLine Servant Stuff"if minTime is 0 then put empty into line two of cd fld "minTime" of cd "Settings" -- cancel new RT flaglogOffgo to card startingCardopenCardput ">>>>>> Online session completed. <<<<<<" & return¬before fld "text"set textStyle of line one of fld "text" to "bold"hide msgpostMortemput empty into servantModeput empty into welcomeenable menu "Servant"unlock screenif line 14 of miscOs then PLAY harpsichord tempo 700 "cq e g c5"set lockMessages to falseend mouseUp</script>
</part>
<part>
<id>25</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>1</left>
<top>53</top>
<right>512</right>
<bottom>70</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>11</textHeight>
<name>Reply</name>
<script>on closeFieldrepeat while line one of me is emptydelete line one of meif me is empty then exit repeatend repeatif me is empty or me is return thenput empty into field "Flag"elseif fld "Flag" is "S" thenanswer "This reply has already been sent. Do you want to send it again?" with¬"Yes" or "No"if it is not "Yes" then pass closeFieldend ifput "R" into field "Flag"if fld "Topic" is empty then click at the loc of fld "Topic"end ifpass closeFieldend closeFieldon openFieldif item two of the rect of fld "text" < 80 thenzoomInif the mouseLoc is in the rect of me then click at the mouseLocelse select before text of meend ifpass openFieldend openField</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>1</left>
<top>71</top>
<right>512</right>
<bottom>402</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>11</textHeight>
<name>Text</name>
<script></script>
</part>
<part>
<id>39</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>2</left>
<top>37</top>
<right>33</right>
<bottom>49</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Zoom reply</name>
<script>on mouseUpif item two of the rect of fld "text" < 120 then zoomInelse zoomOutend mouseUp</script>
</part>
<part>
<id>49</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>499</left>
<top>0</top>
<right>512</right>
<bottom>35</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>12254</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Reply only</name>
<script>on mouseUp--clicking this button starts a normal online session that sends/reads--GEnie mail & replies to topics, but does no browsing/readingput "REPLIES & EMAIL ONLY"wait 30global miscOsput "Reply" into line 3 of miscOssend mouseUp to bg btn id 34end mouseUp</script>
<script>on mouseUpgo to previous cardend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>473</left>
<top>404</top>
<right>502</right>
<bottom>431</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26425</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseUpgo to next cardend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>403</top>
<right>32</right>
<bottom>432</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>21700</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Home</name>
<script>on mouseUpgo Home in a new windowend mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>183</left>
<top>404</top>
<right>219</right>
<bottom>430</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1007</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Print selection</name>
<script>--This prints the current selection, or a group of selections, in--10 point Helvetica (or you can change this below).--With option only: start fresh or append an item but dont print--With command: print current fileon mouseUpglobal hyperTempStatusput the optionKey into optionget the commandKeyset printMargins to 72,72,72,36 -- in points (top,left,right,bottom?)set printTextHeight to 12set printTextSize to 10if it = "down" thenif hyperTempStatus is empty then beepelse print hyperTempStatusput empty into hyperTempStatusexit mouseUpend ifif option = "down" thenput the selection after hyperTempStatusput return & return & return after hyperTempStatusplay "harpsichord" "c4s e4e"set the highlight of me to "true"set the highlight of me to "false"exit mouseUpend ifprint the selectionend mouseUp</script>
</part>
<part>
<id>26</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>168</left>
<top>0</top>
<right>212</right>
<bottom>17</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>Cat</name>
<script></script>
</part>
<part>
<id>27</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>65533</left>
<top>1</top>
<right>30</right>
<bottom>20</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>Page</name>
<script>on mouseUpglobal startingCardif startingCard is a number then put startingCard into aNum else put one into aNumask "Go to card number?" with aNumif it is a number then go card itend mouseUp</script>
</part>
<part>
<id>28</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>31</left>
<top>0</top>
<right>48</right>
<bottom>18</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Flag</name>
<script>on mouseUpput me into oldput " R XRSR" into flagsif old = "" then get 1 else get offset(old,flags)if it < 1 thenbeepexit mouseUpend ifput char it+1 of flags into nCharif nChar = "R" thenif fld "Reply" = "" thenbeepexit mouseUpend ifanswer "This card will be flagged to reply next session."¬with "Cancel" or "OK"if it is not "OK" then exit mouseUpend ifput nChar into meend mouseUp</script>
</part>
<part>
<id>29</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>169</left>
<top>21</top>
<right>271</right>
<bottom>35</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Heading</name>
<script></script>
</part>
<part>
<id>40</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>71</left>
<top>0</top>
<right>130</right>
<bottom>18</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>GEPage</name>
<script></script>
</part>
<part>
<id>43</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>253</left>
<top>1</top>
<right>461</right>
<bottom>15</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>Reply to</name>
<script></script>
</part>
<part>
<id>46</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>220</left>
<top>403</top>
<right>253</right>
<bottom>432</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>17401</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Save ASCII</name>
<script>on mouseUpsaveASCend mouseUp</script>
</part>
<part>
<id>51</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>287</left>
<top>17</top>
<right>461</right>
<bottom>33</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>CC</name>
<script></script>
</part>
<part>
<id>52</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>18</top>
<right>97</right>
<bottom>37</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>ltrNum</name>
<script></script>
</part>
<part>
<id>53</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>495</left>
<top>52</top>
<right>512</right>
<bottom>71</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Dollar</name>
<script></script>
</part>
<part>
<id>54</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>339</left>
<top>35</top>
<right>512</right>
<bottom>51</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>BCC</name>
<script></script>
</part>
<part>
<id>55</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>406</left>
<top>404</top>
<right>433</right>
<bottom>430</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>29484</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>nextSame</name>
<script>on mouseUpglobal goNumsput fld "GEPage" into nPageif nPage is empty thenbeepexit mouseUpend ifput fld "Cat" into nCatput fld "Topic" into nTopicput fld "reply to" into nRepif goNums is not empty thenif (nRep is not empty and item 4 of goNums = nRep) or (nPage=item 1 of goNums and ¬nCat=item 2 of goNums and nTopic=item 3 of goNums) thengo next marked cardif the result is not empty then beepexit mouseUpend ifend ifunmark all cardsif nPage is "Mail" thenput ",,," & nRep into goNumsmark cards where fld "Reply To" is nRepelseput nPage & "," & nCat & "," & nTopic into goNumsmark cards where fld "GEPage" is nPage and fld "Cat" is nCat and ¬fld "Topic" is nTopicend ifif the number of marked cards < 2 thenunmark this cardput empty into goNumsbeepelse go next marked cardend mouseUp</script>
</part>
<part>
<id>56</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>374</left>
<top>404</top>
<right>404</right>
<bottom>430</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>3835</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>prevSame</name>
<script>on mouseUpglobal goNumsput fld "GEPage" into nPageif nPage is empty thenbeepexit mouseUpend ifput fld "Cat" into nCatput fld "Topic" into nTopicput fld "reply to" into nRepif goNums is not empty thenif (nRep is not empty and item 4 of goNums = nRep) or (nPage=item 1 of goNums and ¬nCat=item 2 of goNums and nTopic=item 3 of goNums) thengoPrev nRep, nPage, nCat, nTopicif the result is not empty then beepexit mouseUpend ifend ifunmark all cardsif nPage is "Mail" thenput ",,," & nRep into goNumsmark cards where fld "Reply To" is nRepelseput nPage & "," & nCat & "," & nTopic into goNumsmark cards where fld "GEPage" is nPage and fld "Cat" is nCat and ¬fld "Topic" is nTopicend ifif the number of marked cards < 2 thenunmark this cardput empty into goNumsgoArc nRep, nPage, nCat, nTopicelse goPrev nRep, nPage, nCat, nTopicend mouseUpon goPrev nRep, nPage, nCat, nTopiclock screenget the number of this cardgo prev marked cardif it > number of this card then exit goPrevgo recent cdgoArc nRep, nPage, nCat, nTopicend goPrevon goArc nRep, nPage, nCat, nTopicif nRep <> "" then put "OS," & nRep into fNameelse put "OS," & oPad(nPage,4) & "," & ¬oPad(nCat,2) & "," & oPad(nTopic,2) into fNamelock screenset lockmessages to truepush cardgo to card "Settings" of stack "Online Servant Stuff"put cd fld "app" into appput cd fld "folderPath" into aPathpop cardif aPath <> "" thenput aPath before fnameif app is empty then put "TeachText" into appif there is a file fName then open fName with appelse beepelse beepend goArc</script>
</part>
<part>
<id>60</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>21</top>
<right>172</right>
<bottom>36</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>RTName</name>
<script></script>
</part>
<part>
<id>61</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>145</left>
<top>403</top>
<right>177</right>
<bottom>431</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>27576</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Quoter</name>
<script>on mouseUpput the selection into mySelif mySel is empty thenanswer "Select the text you want to quote in your reply, " &¬"then click the quote button."elseput return & wrapIt(mySel) & return &¬return after fld "reply"if item two of the rect of fld "text" < 120 then zoomInselect after text of fld "reply"end ifend mouseUp</script>
</part>
<part>
<id>62</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>35</left>
<top>402</top>
<right>69</right>
<bottom>433</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>9761</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>toMap</name>
<script>on mouseUpgo stack "Online Servant Stuff" in a new windowif the result is "Cancel" then exit mouseUpelse if the result <> empty then go stack "Online Servant Stuff"end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>27</id>
<text>1</text>
</content>
<name></name>
<script>on openBackgroundpush recent cardend openBackgroundon openCardif item two of the rect of fld "text" > 120 then zoomOutput the number of this card into fld "Page"end openCardon closeCard --check to/cc lengths, missing topicif fld "Flag" <> "R" then pass closeCardput fld "topic" into ourTopicif ourTopic = "" thenask "How about a topic (subject) for this letter?"if the result is "" thenput char 1 to 30 of line 1 of it into fld "topic"end ifend ifend closeCardon moveMeget the loc of the targetsubtract 20 from item 2 of itset the loc of the target to itend moveMeon fldToScroll myFieldglobal tempOSIset lockmessages to trueif tempOSI ≠ empty thensend closeField to fld line 2 of tempOSIexit fldToScrollend ifget the rect of fld myFieldput it & return & myField into tempOSIlock screenput "proc" into line 3 of tempOSIset the rect of fld myField to 215,84,482,219set the style of fld myField to scrollingunlock screenselect text of fld myFielddelete line 3 of tempOSIend fldToScrollon closeField flg--also check for newly short enough reply/cc/bccglobal tempOSIif line 3 of tempOSI is "proc" then exit closeFieldput the short target into fldNameif fldName is "Reply" then pass closeFieldif fldName is not in "Reply To cc bcc" then pass closeFieldif flg = "" thenget ""---TBATCH ONLYif length(fld fldName) > 150 thenget "Field “" & fldName & "” is"else if length(fld "CC") + length(fld "BCC") > 145 thenget "Fields “CC” and “BCC” together are"end ifif it ≠ empty thenanswer it & " too long. Some addresses will be ignored."end ifend ifif fldName is not line 2 of tempOSI or the number of items in ¬line 1 of tempOSI ≠ 4 then pass closeFieldset lockmessages to truelock screenput "proc" into line 3 of tempOSIset the rect of fld fldName to line 1 of tempOSIset the style of fld fldName to transparentput empty into tempOSIunlock screendelete line 3 of tempOSIset lockmessages to falsepass closeFieldend closeFieldon exitFieldget the short targetif it is "Reply" then pass exitFieldif the short target is not in "Reply To cc bcc" then pass exitFieldsend "closeField X" to the targetend exitFieldon wipeOCask "Delete how many cards (starting here)?" with 0if it is empty then exit wipeOCrepeat for itdoMenu "Delete Card"end repeatend wipeOC</script>
